$dir="/data4/bsi/bioinf_ext1/s113890.senescence/HT_HG-U133A";
$ls=`ls $dir`;
@ls=split("\n",$ls);
#print "@ls\n";
for($i=0;$i<@ls;$i++)
{
	if($ls[$i] !~ m/raw/)
	{
		#print "$dir/$ls[$i]\n";
		$dd=`ls $dir/$ls[$i]`;
		#print $dd."\n";
		system("mv $dir/$ls[$i].raw/sdrf.txt $dir/$ls[$i]"); 
		@dd=split("\n",$dd);
		system("mkdir $dir/$ls[$i]/rawdata");
		
		for($y=0;$y<@dd;$y++)
		{
			if($dd[$y] =~ m/cel/i)
			{
				#print "$dir/$ls[$i]/$dd[$y]\n";
				system("mv $dir/$ls[$i]/$dd[$y] $dir/$ls[$i]/rawdata");
			}	
		}
	}
}
